home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BORL_TIP / TI100 / TI579.ASC < prev    next >
Text File  |  1994-10-18  |  2KB  |  85 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.   PRODUCT  :  Pascal                                 NUMBER  :  579
  8.   VERSION  :  All
  9.        OS  :  DOS
  10.      DATE  :  October 6, 1994                          PAGE  :  1/2
  11.  
  12.     TITLE  :  EDITORS.PAS 3,4,5,6 Entry Patch for TP6.
  13.  
  14.  
  15.  
  16.  
  17.  
  18. The following patch fixes the problem of not being able to enter
  19. numbers 3 through 6 into the editor of the EDITORS.PAS example
  20. shipped with Turbo Pascal 6.0.
  21.  
  22. Open EDITORS.PAS in the TURBO editor and search for the EXISTING
  23. code.   Once that is found change the EXISTING code to the CHANGE
  24. TO code.  Save your changes and recompile EDITORS.PAS.
  25.  
  26.  
  27. EXISTING:                        EXISTING:
  28.  
  29.         LODSW                    var
  30.         OR      BL,BL              Key: Word;
  31.         JE      @@2
  32.         CMP     BL,DL            CHANGE TO:
  33.  
  34. CHANGE TO:                       var
  35.                                    ShiftState: Byte absolute
  36.         LODSW                        $40:$17;
  37.         CMP     BL,DL              Key: Word;
  38.  
  39.  
  40. --------------------------       --------------------------
  41.  
  42.  
  43. EXISTING:                        EXISTING:
  44.  
  45.         JE      @@4              begin
  46. @@2:    CMP     BH,DH              Key := Event.KeyCode;
  47.         JE      @@4
  48.                                   CHANGE TO:
  49. CHANGE TO:
  50.                                  begin
  51.         JE      @@4                if (ShiftState and $03 <> 0)
  52.         CMP     BH,DH               and (Event.ScanCode >= $47)
  53.         JE      @@4                  and (Event.ScanCode <= $51)
  54.                                  then
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.   PRODUCT  :  Pascal                                 NUMBER  :  579
  68.   VERSION  :  All
  69.        OS  :  DOS
  70.      DATE  :  October 6, 1994                          PAGE  :  2/2
  71.  
  72.     TITLE  :  EDITORS.PAS 3,4,5,6 Entry Patch for TP6.
  73.  
  74.  
  75.  
  76.  
  77.                                      Event.CharCode := #0;
  78.                                    Key := Event.KeyCode;
  79.  
  80.  
  81. DISCLAIMER: You have the right to use this technical information
  82. subject to the terms of the No-Nonsense License Statement that
  83. you received with the Borland product to which this information
  84. pertains.
  85.